home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #116 (1991-03)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #116 (1991-03)(Amiga User Group Deutschland e.V.).adf / DiskLabel_V1.22 / DiskLabelV1.22 < prev    next >
Text File  |  1989-07-03  |  8KB  |  299 lines
  1. REM DiskLabel V1.22 Written by Christian Koot in 1991
  2. WINDOW 1 , "  DiskLabel V1.22  (c) Christian Koot Feb.1991" ,, 28
  3. MENU 5,0,1,"DiskLabel  " 
  4. MENU 5,1,1,"Eingabe    "
  5. MENU 5,2,1,"Anzeige    "
  6. MENU 5,3,1,"Änderung   "
  7. MENU 5,4,1,"Laden      "
  8. MENU 5,5,1,"Speichern  " 
  9. MENU 5,6,1,"Drucken    "
  10. MENU 5,7,1,"Infos      "
  11. MENU 5,8,1,"-----------"
  12. MENU 5,9,1,"Epson FX-85"
  13. MENU 5,10,1,"kompat. Dr."
  14. MENU 5,11,1,"-----------"
  15. MENU 5,12,1,"Ende       "
  16. LOCATE 11,14
  17. PRINT" Wählen Sie bitte mit der rechten Maustaste."
  18. Einsprung:
  19. ON MENU GOSUB Mausauswertung
  20. MENU ON
  21. GOTO Einsprung
  22. Eingabe:
  23. CLS
  24. PRINT
  25. INPUT "    Diskname: " , label$
  26. PRINT
  27. INPUT "1: " , a$
  28. INPUT "2: " , b$
  29. INPUT "3: " , c$
  30. INPUT "4: " , d$
  31. INPUT "5: " , e$
  32. INPUT "6: " , f$
  33. INPUT "7: " , g$
  34. INPUT "8: " , h$
  35. GOTO Einsprung
  36. Aenderung:
  37. CLS
  38. INPUT "Welche Eingabe wollen Sie ändern? (1-8 bzw. Diskname) " , alter$
  39. IF alter$ = "1" THEN GOTO Einae
  40. IF alter$ = "2" THEN GOTO Zweae
  41. IF alter$ = "3" THEN GOTO Dreae
  42. IF alter$ = "4" THEN GOTO Vieae
  43. IF alter$ = "5" THEN GOTO Fueae
  44. IF alter$ = "6" THEN GOTO Secae
  45. IF alter$ = "7" THEN GOTO Sieae
  46. IF alter$ = "8" THEN GOTO Achae
  47. IF alter$ = "Diskname" THEN GOTO Disae
  48. GOTO Aenderung
  49. Einae:
  50. PRINT
  51. PRINT "Alter PRG.Name: " ; a$
  52. PRINT
  53. INPUT "Neuer PRG.Name: " , a$
  54. GOTO Frage
  55. Frage:
  56. CLS
  57. PRINT"     Diskname:" ; label$
  58. PRINT
  59. PRINT" 1: " ; a$
  60. PRINT" 2: " ; b$
  61. PRINT" 3: " ; c$
  62. PRINT" 4: " ; d$
  63. PRINT" 5: " ; e$
  64. PRINT" 6: " ; f$
  65. PRINT" 7: " ; g$
  66. PRINT" 8: " ; h$
  67. PRINT
  68. PRINT
  69. INPUT "Wollen Sie nochwas ändern? (j/n) " , quest$
  70. IF quest$ = "j" THEN GOTO Aenderung
  71. IF quest$ = "n" THEN GOTO Anzeige
  72. GOTO Frage
  73. Zweae:
  74. PRINT
  75. PRINT "Alter PRG.Name: " ; b$
  76. PRINT
  77. INPUT "Neuer PRG.Name: " , b$
  78. GOTO Frage
  79. Dreae:
  80. PRINT
  81. PRINT "Alter PRG.Name: " ; c$
  82. PRINT
  83. INPUT "Neuer PRG.Name: " , c$
  84. GOTO Frage
  85. Vieae:
  86. PRINT
  87. PRINT "Alter PRG.Name: " ; d$
  88. PRINT
  89. INPUT "Neuer PRG.Name: " , d$
  90. GOTO Frage
  91. Fueae:
  92. PRINT
  93. PRINT "Alter PRG.Name: " ; e$
  94. PRINT
  95. INPUT "Neuer PRG.Name: " , e$
  96. GOTO Frage
  97. Secae:
  98. PRINT
  99. PRINT "Alter PRG.Name: " ; f$
  100. PRINT
  101. INPUT "Neuer PRG.Name: " , f$
  102. GOTO Frage
  103. Sieae:
  104. PRINT
  105. PRINT "Alter PRG.Name: " ; g$
  106. PRINT
  107. INPUT "Neuer PRG.Name: " , g$
  108. GOTO Frage
  109. Achae:
  110. PRINT
  111. PRINT "Alter PRG.Name: " ; h$
  112. PRINT
  113. INPUT "Neuer PRG.Name: " , h$
  114. GOTO Frage
  115. Disae:
  116. PRINT
  117. PRINT "Alter Diskname: " ; label$
  118. PRINT
  119. INPUT "Neuer Diskname: " , label$
  120. GOTO Frage
  121. Anzeige:
  122. CLS
  123. PRINT
  124. PRINT"     Diskname: " ; label$
  125. PRINT
  126. PRINT" 1: " ; a$
  127. PRINT" 2: " ; b$
  128. PRINT" 3: " ; c$
  129. PRINT" 4: " ; d$
  130. PRINT" 5: " ; e$
  131. PRINT" 6: " ; f$
  132. PRINT" 7: " ; g$
  133. PRINT" 8: " ; h$
  134. GOTO Einsprung
  135. Druck:
  136. CLS
  137. PRINT
  138. PRINT" Ist der Drucker bereit? (Drücken Sie irgendeine Taste):"
  139. WHILE INKEY$ = "" : WEND
  140. OPEN "PAR:" FOR OUTPUT AS 1
  141. PRINT #1, "     " ; label$ : IF fett$ = "j" THEN PRINT #1, CHR$(27) ; CHR$(70) ; CHR$(27) ; CHR$(10) ;CHR$(13)
  142. PRINT #1, "" ; CHR$(13)
  143. PRINT #1, a$ ; CHR$(13)
  144. PRINT #1, b$ ; CHR$(13)
  145. PRINT #1, c$ ; CHR$(13)
  146. PRINT #1, d$ ; CHR$(13)
  147. PRINT #1, e$ ; CHR$(13)
  148. PRINT #1, f$ ; CHR$(13)
  149. PRINT #1, g$ ; CHR$(13)
  150. PRINT #1, h$ ; CHR$(13)
  151. CLOSE 1
  152. GOTO Anzeige
  153. Infos:
  154. CLS
  155. PRINT
  156. PRINT" DiskLabel 1.22 darf in jede PD-Serie aufgenommen werden, sofern ich davon"
  157. PRINT
  158. PRINT" schriftlich in Kenntnis gesetzt werde. Dieses Programm und seine Begleit-"
  159. PRINT
  160. PRINT" files müssen unverändert und vollständig übernommen werden. Dieses Prog-"
  161. PRINT
  162. PRINT" ist, wie gesagt, zum schnellen und unkomplizierten Bedrucken von Labels"
  163. PRINT
  164. PRINT" von 3,5 Zoll Disks gedacht und daher kann man es mit anderen Programmen"
  165. PRINT
  166. PRINT" in den Punkten Aufmachung und Funktionen nicht verglichen werden. Auf je-"
  167. PRINT
  168. PRINT" den Fall ist es unglaublich billig, da es PD ist. Für Verbesserungsvor-"
  169. PRINT
  170. PRINT" schläge, Tips und Fehlermeldungen bin ich jederzeit dankbar. Meine Adresse:"
  171. PRINT
  172. PRINT
  173. PRINT"        Christian Koot"
  174. PRINT"        Neißeweg 38"
  175. PRINT" W-3588 Homberg/Efze"
  176. GOTO Einsprung
  177. Speichern:
  178. CLS
  179. PRINT
  180. INPUT " Geben Sie bitte das Verzeichnis an: " , spfad$
  181. CHDIR spfad$
  182. PRINT
  183. PRINT " Die Daten zu " ; label$ ; " werden gespeichert."
  184. OPEN label$ FOR OUTPUT AS 1
  185. PRINT #1, label$
  186. PRINT #1, a$
  187. PRINT #1, b$
  188. PRINT #1, c$
  189. PRINT #1, d$
  190. PRINT #1, e$
  191. PRINT #1, f$
  192. PRINT #1, g$
  193. PRINT #1, h$
  194. CLOSE 1
  195. GOTO Anzeige
  196. Laden:
  197. CLS
  198. PRINT
  199. INPUT " Geben Sie das Verzeichnis an: " , lpfad$
  200. CHDIR lpfad$
  201. PRINT
  202. PRINT
  203. INPUT " Geben Sie den Dateinamen an : " , lad$
  204. OPEN lad$ FOR INPUT AS 1
  205. INPUT #1, label$
  206. INPUT #1, a$
  207. INPUT #1, b$
  208. INPUT #1, c$
  209. INPUT #1, d$
  210. INPUT #1, e$
  211. INPUT #1, f$
  212. INPUT #1, g$
  213. INPUT #1, h$
  214. CLOSE 1
  215. GOTO Anzeige
  216. Mausauswertung:
  217. IF MENU(0) = 5 THEN Weiter
  218. RETURN
  219. Weiter:
  220. IF MENU(1) = 1 THEN Eingabe
  221. IF MENU(1) = 2 THEN Anzeige
  222. IF MENU(1) = 3 THEN Aenderung
  223. IF MENU(1) = 4 THEN Laden
  224. IF MENU(1) = 5 THEN Speichern
  225. IF MENU(1) = 6 THEN Druck
  226. IF MENU(1) = 7 THEN Infos
  227. IF MENU(1) = 9 THEN Einstellung
  228. IF MENU(1) = 10 THEN Aufstellung
  229. IF MENU(1) = 12 THEN Ente
  230. GOTO Weiter
  231. Ente:
  232. CLS
  233. PRINT
  234. INPUT " Wollen Sie DiskLabel wirklich beenden? (j/n) " , ent$
  235. IF ent$ = "j" THEN Schulz
  236. IF ent$ = "n" THEN Anzeige
  237. GOTO Ente
  238. Aufstellung:
  239. CLS
  240. PRINT "Epson-FX kompatibel sind (ohne Anspruch auf Vollständigkeit):"
  241. PRINT
  242. PRINT" AEG Olympia NP30                        AEG Olympia NP80-SE"
  243. PRINT" AEG Olympia NP136-SE                    Amstrad DMP 3160"
  244. PRINT" Brother M-1209                          Brother M-1818"
  245. PRINT" Brother M-1918                          Brother M-2518"
  246. PRINT" Brother M-4018                          Citizen 120D+"
  247. PRINT" Citizen Swift9                          Citizen Prodot9(X)"
  248. PRINT" Epson FX 85/850/1050                    Epson LX 400/800/850"
  249. PRINT" Facit B-3100                            Facit B-3150"
  250. PRINT" Facit B-2100                            Facit B-2150"
  251. PRINT" Facit B-3550                            Genicom Geniprint 10/15"
  252. PRINT" Mannesmann Tally MT 81                  Mannesmann Tally MT 130/9"
  253. PRINT" Mannesmann Tally MT 131/9               Mannesmann Tally MT 230/9"
  254. PRINT" Mannesmann Tally MT 230/18              OKI Microline 182 Elite"
  255. PRINT" OKI Microline 320/321 Elite             Olivetti DM-309(L)"
  256. PRINT" Panasonic KX-P 1081                     Panasonic KX-P 1180"
  257. PRINT" Panasonic KX-P 1695                     Präsident 6325"
  258. PRINT" Seikosha SP-180AI                       Seikosha SP-1200AI"
  259. PRINT" Seikosha SP-2000                        Seikosha MP-5350AI"
  260. PRINT" Star LC-10 (I u. II)                    Star LC-15/20/200"
  261. PRINT" Star FR-10/15                           Triumph-Adler MPR 7292"
  262. GOTO Einsprung                    
  263. Schulz:
  264. WINDOW CLOSE 1
  265. MENU RESET
  266. END
  267. Einstellung:
  268. CLS
  269. OPEN "PAR:" FOR OUTPUT AS 1
  270. PRINT
  271. INPUT " Near Letter Quality? (j/n) " , schoen$
  272. IF schoen$ = "j" THEN PRINT #1, CHR$(27) ; CHR$(120) ; CHR$(1) ; CHR$(27) ; CHR$(10)
  273. IF schoen$ = "n" THEN PRINT #1, CHR$(27) ; CHR$(120) ; CHR$(0) ; CHR$(27) ; CHR$(10)
  274. PRINT
  275. INPUT " Schmaldruck? (j/n) " , schmal$
  276. IF schmal$ = "j" THEN PRINT #1, CHR$(27) ; CHR$(15) ; CHR$(27) ; CHR$(10)
  277. IF schmal$ = "n" THEN PRINT #1, CHR$(18) ; CHR$(27) ; CHR$(10)
  278. PRINT
  279. INPUT " Fettdruck im Disknamen ? (j/n) " , fett$
  280. IF fett$ = "j" THEN PRINT #1, CHR$(27) ; CHR$(69) ; CHR$(27) ; CHR$(10)
  281. IF fett$ = "n" THEN PRINT #1, CHR$(27) ; CHR$(70) ; CHR$(27) ; CHR$(10)
  282. PRINT
  283. INPUT " Schattendruck? (j/n) " , schatten$
  284. IF schatten$ = "j" THEN PRINT #1, CHR$(27) ; CHR$(71) ; CHR$(27) ; CHR$(10)
  285. IF schatten$ = "n" THEN PRINT #1, CHR$(27) ; CHR$(72) ; CHR$(27) ; CHR$(10)
  286. PRINT
  287. INPUT " Kursivdruck? (j/n) " , kur$
  288. IF kur$ = "j" THEN PRINT #1, CHR$(27) ; CHR$(52) ; CHR$(27) ; CHR$(10)
  289. IF kur$ = "n" THEN PRINT #1, CHR$(27) ; CHR$(53) ; CHR$(27) ; CHR$(10)
  290. CLOSE 1
  291. GOTO Anzeige
  292.  
  293.  
  294.  
  295.  
  296.  
  297.  
  298.  
  299.